## Warning: package 'tidyverse' was built under R version 4.0.5
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.4 v purrr 0.3.4
## v tibble 3.1.0 v dplyr 1.0.6
## v tidyr 1.1.3 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.1
## Warning: package 'tibble' was built under R version 4.0.5
## Warning: package 'tidyr' was built under R version 4.0.5
## Warning: package 'readr' was built under R version 4.0.5
## Warning: package 'purrr' was built under R version 4.0.5
## Warning: package 'dplyr' was built under R version 4.0.5
## Warning: package 'stringr' was built under R version 4.0.5
## Warning: package 'forcats' was built under R version 4.0.5
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
## Warning: package 'data.table' was built under R version 4.0.5
##
## Attaching package: 'data.table'
## The following objects are masked from 'package:dplyr':
##
## between, first, last
## The following object is masked from 'package:purrr':
##
## transpose
## Warning: package 'readxl' was built under R version 4.0.5
## [1] "tbl_df" "tbl" "data.frame"
## tibble[,20] [128 x 20] (S3: tbl_df/tbl/data.frame)
## $ Código Dane : num [1:128] 1.08e+11 1.08e+11 1.08e+11 1.08e+11 1.08e+11 ...
## $ IED : Factor w/ 130 levels "ESC NORMAL SUPERIOR LA HACIENDA",..: 125 36 45 109 64 14 44 43 85 119 ...
## $ CAT : Factor w/ 5 levels "A","A+","B","C",..: 4 2 2 3 4 5 5 5 2 3 ...
## $ Focalización : Factor w/ 4 levels "APE","GRUPO 5",..: 3 3 3 1 1 3 3 3 4 1 ...
## $ MAPSI : Factor w/ 2 levels "NO","SÍ": 2 2 2 1 1 2 2 2 1 1 ...
## $ APE : Factor w/ 2 levels "NO","SÍ": 1 1 1 2 2 1 1 1 1 2 ...
## $ GRUPO 5 : Factor w/ 2 levels "NO","SÍ": 1 1 1 1 1 1 1 1 1 1 ...
## $ Promedio puntaje global S2021: num [1:128] 149 256 228 189 188 ...
## $ Promedio lectura crítica 2021: num [1:128] 28.4 50.4 51.6 37.3 43.1 ...
## $ Promedio matemáticas s2021 : num [1:128] 40.4 62.4 52.5 39.7 45.7 ...
## $ Promedio sociales s2021 : num [1:128] 26 48.5 45.7 39.7 33.4 ...
## $ Promedio naturales s2021 : num [1:128] 24.4 40.5 34.5 32.3 26.4 ...
## $ Promedio inglés s2021 : num [1:128] 31.2 58.7 39.7 45.5 42.9 ...
## $ Promedio puntaje global S2020: num [1:128] 244 320 289 248 247 ...
## $ Promedio lectura crítica 2020: num [1:128] 48.8 64.1 61 57.2 53.8 ...
## $ Promedio matemáticas s2020 : num [1:128] 40.6 46.2 40.1 38.5 54.1 ...
## $ Promedio sociales s2020 : num [1:128] 37 41.3 37.3 36 48.1 ...
## $ Promedio naturales s2020 : num [1:128] 26.2 34.3 35.2 32.2 40.1 ...
## $ Promedio inglés s2020 : num [1:128] 36.4 31.7 48 41 62.1 ...
## $ DIF PG : num [1:128] -94.6 -64.6 -60.8 -58.8 -58.7 ...
## - attr(*, "na.action")= 'omit' Named int [1:2] 129 130
## ..- attr(*, "names")= chr [1:2] "129" "130"
## [1] "Código Dane" "IED"
## [3] "CAT" "Focalización"
## [5] "MAPSI" "APE"
## [7] "GRUPO 5" "Promedio puntaje global S2021"
## [9] "Promedio lectura crítica 2021" "Promedio matemáticas s2021"
## [11] "Promedio sociales s2021" "Promedio naturales s2021"
## [13] "Promedio inglés s2021" "Promedio puntaje global S2020"
## [15] "Promedio lectura crítica 2020" "Promedio matemáticas s2020"
## [17] "Promedio sociales s2020" "Promedio naturales s2020"
## [19] "Promedio inglés s2020" "DIF PG"
Comparación del puntaje global de 2020 vs 2021 de las IEDs para las que se tiene resultado por el momento.
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -94.560 -30.492 -21.420 -18.401 -4.625 78.130
## Warning: package 'plotly' was built under R version 4.0.5
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
IED de menor a mayor según puntaje global del simulacro 2021.
## [1] 200.1084
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 126.6 174.7 195.7 200.1 218.4 339.6
1.IEDs con puntajes entre 201 y 250.
IEDs con puntajes mayores de 251 puntos.
Ahora, la diferencia del puntaje global de 2021 don respecto a 2020 de las IED por categoría.
plot_10<-ggplot(data=sim_130IED_2, mappin= aes(x=pg_s2021, fill=categ))+
geom_histogram(bins = 10, alpha=0.5, color="white")+
theme(panel.background = element_rect(fill = 'white', colour = 'white'))+
scale_fill_manual(values=c("darkgreen","green", "yellow", "orange","red"),
labels=c("A+","A", "B", "C", "D")) +
labs(title = "Distribución Puntaje global", y="Número de IEDs",x="Puntaje global 2021", fill="Categoría", caption= "Fuente: SED con datos ICFES")
ggplotly(plot_10)
plot_11<-ggplot(data=sim_130IED_2, mappin= aes(x=pg_s2021, fill=Focalización))+
geom_histogram(bins = 10,alpha=0.5, color="white")+
theme(panel.background = element_rect(fill = 'white', colour = 'white'))+
labs(title = 'Distribución Puntaje global', y='Número de IEDs',x='Puntaje global 2021', caption= "Fuente: SED con datos ICFES")
ggplotly(plot_11)